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FRONT RUNNER: Microtext 2.0 

by Jon Voskuil 

Modifications and enliancennents by the 

SoftSlde programming staff. 

Here is an easy-to-use BASIC word 
processor with edit, printout and search 
commands, for the whole family 




DV BONUS PROGRAM: Family Tree Organizer 

by Fred Coffey 

Return to your genealogical roots with 
this handy data management package 
that features a variety of formats — In- 
dividual biography, pedigree charts and 
descendant tabulation 
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Screamin' Demon 

by Greg Schroeder 

Multiple flippers, bumpers, flashing 
lights and sound effects flavor this ex- 
citing arcade-style pinball game 
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ADVENTURE DiSK and CASSETTE BONUS: 
SoftSide Adventure Series: The Arabian Nights 

by Peter Kirsch 

Brave the perils of ancient Baghdad to ^^ 
save the fair Princess in distress ^^ 



General Information 

and System Requirements . 
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by Jon Voskuil 

Modifications and enhancements by the SoftSide programming staff. 
Microtext 2.0 is a word processor for a 48K Atari®. 



Upon running, Microtext 2.0 displays a mostly blank screen with an instruc- 
tion summary line at the top or bottom. You can either start typing, or load a 
previously saved file from disk or tape. 

You will use the CTRL key to access editor and system functions. Holding 
down CTRL, and then pressing S, L, R, P, or E will access the save, load, 
review, printout, or edit functions. Although not mentioned in the command 
summary on the screen, pressing CTRL-Q will quit the program. 

Saving and loading files is simply a matter of answering the questions about 
the medium to be used (tape or disk) and, if disk, the file name. Once you have 
entered a file name, it will be used as the default until you specify another one 
or exit the program: just press Return when asked for the file name. This 
simplifies repeated saves during entry of a long document. 

The review function causes the computer to return to the beginning of the 
text in memory and scroll through it to the end. During this scrolling, you can 
press the space bar to pause. Then, pressing the space bar will cause one or 
more lines to be displayed; pressing Return will cause the scrolling to continue; 
and pressing CTRL-E will enter the editing mode; ESC cancels review. 

In the editing mode, you can move the cursor up and down through your 
text, to locate any line which you want to edit or delete. This movement is ac- 
complished with the up- and down-arrow keys (CTRL must be held down). 
You have four options while in the editing mode: pressing ESC will exit to the 
review mode; pressing CTRL-D will delete the line at the cursor; pressing 
CTRL-X will delete everything from the cursor to the end of the text; pressing 
Return will allow you to edit the line at the cursor; and pressing CTRL-F will 
let you find a string in your text. 



If you choose to edit a line, the screen will clear, and then display a number 
of lines of text with a gap of several lines in the middle. The cursor will be posi- 
tioned at the beginning of the line you have chosen to edit, and you can pro- 
ceed to type in a new line to replace the old one. The new one can be shorter 
than the original, or may occupy multiple screen lines. Any part of the original 
line that you want retained must be retyped: whatever you type in will replace 
the entire line. You can use the right-arrow key (with CTRL) to retype 
automatically the portion of the line you wish to retain. When you have finished 
entering the new text, press CTRL-F (not return, unless you want a carriage 
return in the text itself). The computer will check to see if the text lines need to 
be rearranged, and then return you to the review mode. 

The find function, accessed by pressing CTRL-F from the edit mode, will 
ask you what string to search for. The program will search through your text 
for your string, beginning with the line the cursor is on, and put the cursor on 
the first line in which your string was found. Since a multiple- word search 
string may be broken up between lines, it is more reliable to search for single 
words. 

The find routine will leave you editing the line in which it found your search 
string; if no change is desired, simply copy the line with the right-arrow. The 
find routine displays a message to inform you if the string was not found. 

The printout function (CTRL-P) allows you to send your text to a printer, 
after selecting margins, and line spacing. 



Variables 



AZ: General use. 

AZ$: String to be searched for. 

B$: Contains the backspace 

character [CHR$(126)]. 

BKSP: Equals 126, the ASCII code 

of the backspace character. 

C: The ASCII code of the 

character the user most recently 

typed. 

C$: The actual most recently typed 

character or its equivalent. 

CI: A temporary storage variable 

used to preserve the value of 

CHAR during the editing of a line. 

CC: The ASCII coue of a 

character. 

CH: Pointer used in the rejustifica- 

tion routine. 

CHAR: Character position within 

the line currently being typed. 

CL$: Clear-screen character. 

CN: Character pointer in the edit 

routine. 

CR: A flag that recalls whether a 

line ended in a carriage return. 

MICROTEXT 2.0 



CR$: Contains the character used 
to represent a carriage return on 
the screen. 
E: Error code. 

ED: Flag that recalls whether a 
line is currently being edited. 
EL: Number of the line currently 
being edited. 

FL: If FL= 1, then there is a par- 
tial line at the end of the text. 
Used in the edit routine. 
F$: File name. 

Fl$: Previous file name (if any). 
FT$: Temporary file name. 
H: Horizontal cursor position. 
I: General loop variable. 
IT: Used in screen display routines 
while editing a line. 
J: General loop variable. 
K: Pointer used in the edit routine. 
L: Temporary variable. 
L$: Text in current line. 
LI: Used in edit routines. 
L2: Used in edit routines. 
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LIN: Temporarily holds a line 
number for the edit and review 
routines. 

LIN$: Contains a line of hyphens. 
LL: Line length. 
LM: Left margin. 
LN: Number of lines in the array. 
LNXTS: Temporarily holds the 
next line line of text. 
LP: Length of text to be printed. 
LP(*): Line pointers to lines in T$. 
LS: Line spacing. 
LWID: Maximum number of 
characters per line. 
N: Used to rejustify text. 
NC: Next character pointer in the 
edit routine. 

NL: Pointer used in rejustification 
routine. 

NN: Pointer used to display Hues 
in the edit routine. 
P$: Used to set up text to be 
printed. 

PF: Print flag used for error trap- 
ping. 

PP$: Text to be printed. 
Q$: Contains the prompt lines. 



RM: Right margin. 

RTN: ASCII code of the Return 

key. 

S$: A line of spaces. 

SI: Temporary storage for SLOC. 

SL: Same as SLOC. 

SLOC: Last character position at 

which a space occurred. 

SS: Number of characters to erase. 

SPC: ASCII code of the space 
character. 

STP: Flag used in the review mode 
that determines whether to step 
through line by line. 
TL: Holds the text length. 
TLN: Used to manage string posi- 
tion in the edit routine. 
T$: Main string to hold text. 
TT$: Used to load text from 
media. 

V: Vertical cursor position. 
VI: Vertical screen position. 
VV: Vertical cursor position. 
X: General use. 
X$: General use. 
Z: Timing loop variable. 



SS SS SS SS SS SS SS SS SS SS SS 
ES SS 

SS Atari BASIC SS 

SS "flicrotBKt 2.0' SS 

SS Author: Jon R. Voskuil SS 
SS Copyright © 1983 SS 
SS SoftSide PublicationB, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS BS SS 

If you don't wish to type this program, It 
Is available on Issue #42 SoftSlde CV 
and DV. 

Title page. 

10 GRAPHICS 

20 POKE 752,1:P0KE 70?,2:PQK£ 710,12 
30 POSITION 13,8:? " HICfiOTEXT 2.0 ";P 
OSITION 8.10:? "WRITTEN BY JON R. VOSK 
UIL'iPOSITlON 6,!2:C0L0R 32 
40 ? "tlODIFICATIONS BV ALAN J. 7ETT":? 
:? "COPYRIGHT 1983, SQFTSICE PUBLICAT 
IONS":FOR Z=l TO 1000:NEXT I 



Initialization. 

100 TRAP 20000 

120 DIH L$(40),Tt(H000),B*(l),C»(I),C 

Rtil),LlN1i(37),LH)(T*(40),F$(14),St(37i 

,FTJ!l4),LP(500),TTt(40i,X«(5),Q*i37) 

125 DIM P$(255),PP$(80),F1$(14),CL$(1) 

,AZ$i25):CL$=CHRJ(125) 

130 BKSP=126:RTN=155;SPC=32:PF=0:B$=CH 

R*iSKSP):CRt=CHR«(20) 

135 TJ="":L$="'':LP(0)=0 

140 CHAR=1 

150 LN=! 

160 LINi=" 

":S*=" ":SJ(37)=" ":S*(2)=S$( 

1):? Zl% 

170 OPEN #1,4,0, "K:" 

180 LW1D=3(] 

190 V=2;H=2 

200 Q$="''SAVE -LOAD "REVIEW "EDIT 

"PRINT " 

210 POKE 752,1:P0SITI0N 2,0:? Qt;? LIU 

?:POSIT10N H,V:PQKE 752,0:? " ";B«i 



Input loop. 

500 SET (tl,C:C$=CHR*(C) 

510 IF C=31 ma ED THEN IF CHAR<(LP(EL 

)-LP(EL-l)+l) THEN C.$=Tii.CHAR+LP(EL-l) 

):C=flSC!Ct):lF C=20 THEN C=155 

520 !F C=RTN THEN C«=CR$ 

440 IF COBKSP THEN 720 

650 IF CHHR<2 THEN L$="":6DT0 500 

660 ? B$i" ";Bt! 

670 CHAR=CHaR-l 

675 IF CHAR<2 THEN 500 

680 L$=L$U,CHAR-!) 

700 GOTO 500 

720 IF CORTN THEN IF C<SPC GR O250 

R (0122 AND 0(160) THEN 2000 

740 CHAR=CHAR+!!lF CHAR<LWID OR C=SPC 

OR C=RTN THEN 760 

750 6DSLIB 1000 

;'60 L$(CHAR-1)=C1 

790 IF l;:RTN THEN BBO 

820 ? C»;S$(1,3B-PEEK(85)I 

840 60SUB 6000:SL0C=0 

850 CHAR=1 

360 SOTO 500 

880 ? C»; 

900 IF C=BPC THEN SL0C=CHAR-1;IF CHAR= 

LNID THEN GOSUB 6000:CHAR=1:SLOC=0:' 

920 GOTO 500 

Subroutine to break line at a space, 

and to Initialize the next line. 

lOOO IF SLOC=0 THEN ? :GOTO 1100 

1020 SS=LWID-SLQC-1;FQR J=l TO SS 

;:NE.U i 

1040 FOR j=l 10 SS:? 

1050 IF SLDC=LEN(L*) 

1100 

1060 LN>:T$=LtlSLOC+l) 

1080 L$=L«(1,SLDC) 

11 00 SOSUB 6000 

mo L*=LNni 

1115 LNXT*="° 

1120 ? Hi 

1140 CHAR=LEN(Lti+2 

1150 SLQC-0 

1160 RETURN 

Subroutine to process command 

codes. 

2000 V=PEEK(84)!H=PEEK(B5):PQS!T10N H+ 

1,V:PQKE 752.1!? CHRJ(126)! 

^- — MICROTEXT 2.0 
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" ";:NEn J:? 
THEN LNUJ="' 



B$ 



GOT 



2050 TL=LEN(T$)!TtaL+l)=L$ 

2060 PLOT 0,0:DRAHT0 39,0iPL0T 0,1 

2070 DRAWTO 39,1:P0SITI0N 2,1:? LlNt 

2080 IF ED=0 OR C06 THEN 2100 

2085 IF CHAR)! THEN LPtLN)=LEN(T$):LN= 

LN+!:LP(LN)=LEN(T$):L$='" 

2090 ED=0: RETURN 

2100 IF 0=18 AND ED=0 THEN GOSUB 3000 

2200 IF C=19 AND ED=0 THEN GOSUB 4000 

2300 IF C=12 AND ED=0 THEN GOSUB 5000 

2400 IF C=17 THEN GRAPHICS OiEND 

2500 IF C=16 AND E0=O THEN GOSUB 7000 

2600 IF C=5 AND ED=0 AND LN>1 THEN 1=L 

N-I:VV=V:POSITION 2.VV-1:60SUB 9000:GO 

SUB 3000 

2900 IF TDO THEN Tf=T*(l,TL) 

2950 GOTO 200+10JED 

Subroutine to review entered text. 

3000 ? CL$; "Press any kev to pause":? 

LIN* 

3040 IF LN=1 THEN 3210 

3050 FOR 1=1 TO LN-1 

3060 ' T*(LP(I-ri + l,LP(!)) 

3070 IF PEEK (764) =255 AND NOT STP THE 

N 3200 

3080 STP=0:POK£ 764,255 

3090 V0=PEEK(84:i 

3100 POSITION 2,0:? " RTN!Cont SPC;3t 

P E:Ed!t ESC:Esit ":? LIH$; 

3120 .)(=PEEKi 764); POKE 764,255 

3125 IF )(=170 THEN GOSUB 9000:60T0 300 



3130 IF X':>28 THEN 3160 

3135 IF LN-K22 THEN 3190 

3140 X=LN-21:IF XU THEN i=[ 

3150 ? CLt!? LIN$:FOR AZ=X TO LN-1:? T 

$*LPiAZ-l)+l.LPiA2)i:NEXT A2:V=PEEK(84 

):H=PEEK(85):RETURN 

3160 IF X=12 THEN 3190 

3170 IF X033 THEN 3120 

3180 STP=1 

3190 POSITION 2.VV:P0KE 764,255 

3200 NEXT I 

3210 X=LP(LN-1)+1:IF X<=LEN(T$) THEN ? 

Tt(X); 
3220 H=PEEKl35):V=PEEK(84) 
3250 RETURN 
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Subroutine to save text on tape or 

disk. 

4000 PLOT 0,0:DRAWTO 39,0: POSIT ION 2,0 

!? "Save to Tape or Oisk? (T/D/ESC)'; 

4020 GET «l.X;S=M28»(r>127) 

4030 li>!i-32l(X>90):IF X=27 THEN 4400 

4060 IF X=34 THEN 4200 

4070 IF X</68 THEN 4000 

4075 Fl$=Ft 

4080 PLOT O.OiDRftWTO 39,0:P0SITIQN 2,0 

:? "File Na«e: ":: INPUT F* 

4082 IF F*="" AND F!»="" THEN 4080 

4083 IF Fl = "" THEN F<i=Flt 

4085 IF Ft(2,2)<>":" AND F«(3,3!<;"!" 

THEN FT*="D:":FT$(3)=F$:F»=FT$ 

4090 POSITION 2,0:? "Insert disk and p 

ress RETURN"!:GET tl.XiSOSUB lOOOO 

4)00 OPEN »2,8,0,F*:PLOT 0,0:DRflWTO 39 

,0:PQBITION 2.0:? "SAVINS '";F$;"";6Q 

TO 4210 

4200 POSITION 2,0:? 'Start tape record 

er and press RETURN";: SET #1,)! 

4205 OPEN 12,8,0, "C:" 

4210 '■ «2;LN:' «2;SL0C:? )t2;CHAR 

4220 FOR 1=1 TO LN-1 

4230 ? «2iTl(LP(I-l)+l,LP(I)) 

4240 NEXT I: IF CHARJl THEN ? «2;T*(LP( 

LN-1)+1) 

4300 CLOSE »2 

4400 RETURN 

Subroutine to load text from tape or 
disk. 

5000 PLOT 0,0:DRAWTO 39,0:P0SITIQN 2,0 

:? "Load fros Tape or Disk? (T/D/ESC)" 

!:SET «1,)(:X=X-128»(X:M27) 

5030 X=X-32t(X>90):IF X=27 THEN 5400 

5040 IF X=84 THEN 5200 

5070 IF X068 THEN 5000 

5075 FI$=F$ 

5080 PLOT 0,0:DRAWTO 39,0:P0SITI0N 2,0 

:? "File Naiie: ";: INPUT F$ 

5082 IF F»="" AND FU="" THEN 5080 

5083 IF F$="" THEN F$=Flt 

5085 IF F*(2,2)<>":" AND F«(3,3)<>":" 
THEN FTt="D:":FTl(3)=F$:F$=FT$ 
5090 POSITION 2,0:? "Insert disk and p 
ress RETURN"!:GET «1,X:60SUB 10000 
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5100 OPEN il2,4,0,Ft:PLQT 0,0:DRflWTD 



39 
':S 



,0:PQ3ITI0N 2,0:? "LOADING '";Ft; 

OTO 5210 

5200 POSITION 2,0:? "Start tape rerord 

er and press RETURN";: GET «1,X 

5205 OPEN «2,4,0,"C:" 

5210 INPUT »2;LN: INPUT *2;SL0C 

5215 INPUT #2;CHAR:T1="" 

5220 FOR 1=1 TO LN-1 

5230 INPUT «2,TT*:T«(LENiT$)+l)=TT« 

5240 LP(I)=LEN(Ti) 

5250 NEXT I 

5255 TL=LEN(T$):L$="" 

5260 IF CHARM THEN INPUT )t2,TT*:T*iLE 

Na$) + l)=TT«:LP(LN)=LEN!Tt):L$=TTt 

5300 CLOSE 12 

5350 GGSUB 3000 

5400 RETURN 

Subroutine to add a line of text to 

tiie main text string. 

6000 T«fLEN(T»)+ll=L« 

6030 LP(LN)=LENiT$) 

6100 LN=LN+l:LP(LN)=LEtiHT«) 

6150 L$="" 

6200 RETURN 

Subroutine to print the text in 

memory on a printer. 

7000 PF=1:? CLtiPOSniON 2,6:LIN=0:? " 

Left jiargin? iDeFault = 10) "; 

7010 INPUT X$:Lt1=10:IF LEN(Xt)>0 THEN 

IF VflLlXiDO THEN LM=VALiXl):IF Lri>37 

THEN LI1=37 

7020 ? :? "Right inarqin' (Default = 70 

) ■;:INPUT X$:ftft=70:IF LENlX$)>0 THEN 

IF VAL(X*)>0 THEN RI1=VftL(X$) 

7030 ? :? "Line spacing? (Default = 2) 

";:INPUT X*!LS=2:IF LEN(X1).>0 THEN IF 

VAL(X*.i>0 THEN LS=VAL(X$1 
7040 LL=RM-LH 

7070 ? CL$:LPRINT "":P$="";CR=0:1=0 
7080 1=1 + 1 :PtlLEN(PJ)+l)=T« (LP tI-l)H, 
LPd)) 
7090 IF P$(LEN(P»))=CR* THEN CR=1:GOTO 

7110 
7100 IF LEN(P»)<255-L«1D AND KLN-1 TH 
EN 7080 

71)0 GQSUB 7500:CR=0 
7120 IF KLN-1 THEN 7080 



7130 LPRINT St(l,Lrt);L*; 

7150 LPRINT "» 

7160 G0SU6 3000 

7170 RETURN 

7500 L=LL 

7510 IF LEN(P<>>LL THEN 7550 

7520 IF ( NOT CR) THEN 7640 

7530 LP=LEN(Pt):!F LP<2 THEN PP$="":P$ 

="":GOTQ 7590 

7540 PP«=Pt(l,LP-li:P*=""!GOTO 7590 

7550 C$=P$(L,L):IF C$=" " THEN 7580 

7560 L=L-1:!F DO THEN 7550 

7570 L=LL 

7530 PPt=Ft(l,L):P$=P«(Ltl) 

7590 LPRINT St(l,LN);PP*; 

7610 FOR J=l TO LS:LIN=LIN+1;LPRINT "' 

;NEXT J 

7615 IF L1N>59 THEN FOR J=l TO 66-LIN; 

LPRINT "":NEXT J:LIN=0 

7620 IF LEN(P$)>LL THEN L=LL;BOTO 7550 

7630 IF CR AND LEN(P$)>0 THEN 7530 

7640 RETURN 

Subroutine to re-adjust lines in 
memory so that they fit properly on 
the screen after editing. 

8000 ? CL$;POKE 752,1:P0SITI0N 2,5:' " 

Re-justifyinq test. .. ' 

8010 TL=LEN(T*):N=EL+NL-l:C=LP(N)+l!SL 

=C-1:CH=C-LP(N-1) 

S020 C$=Tt(C,C> 

8030 IF C*=CR$ THEN 8100 

8035 IF C=TL THEN FL=1:SLQC=SL-LP!N-1) 

:G0T0 8100 

8040 IF C$=" " THEN SL=r. 

8050 IF CH<LWID-1 THEN CH=CH+1: 0^=0+1:8 

OTO 8020 

8060 IF SL=LP(N-1) THEN SL=C 

3070 LP(NI=SL:C=SL<-l:N=Ntl:CH=l!GOTO 8 

020 

SlOO LP(NI=C 

8110 IF LP(N)=LPtN+l) THEN LN=LN-1:F0R 

I=N TO LN-l:LP(I)=LP{H-l):NEn I 
8120 RETURN 

Subroutine to edit lines of text. 
9000 FL=n:lF CHftR>l THEN LP(.LN)=LEN(Tt 
);LN=LN+I:LP(LN)=LENiT$):Lt='":FL=l 
9005 POKE 752,1:IT=I:IF I>21 THEN VI =2 
2:G0T0 9040 



9010 V1=I+1:P0SITIQM 2,VV 

9020 i(=2l!lF X>LN-1 THEN X=LN-1 

9025 IF :<=IT THEN 9040 

9030 FOR I = ITH TO X:? T*iLP(I-l)tl,LP 

(I)):NEXT I 

9040 EL=Vl+(IT>21)t!IT-211-l 

9050 POSITION 2,0:0t="IJP/DN:Move RTN:E 

dit D/X:Del ESCiEsit ":? Q«:? LIN* 

9080 C=ftSC(T$(LP(EL-l)+lJ):POSITION 2, 

VliPRINT CHRt(C+128);;GET IH,X:IF XOl 

55 THEN X=X-128»(X>!27)!X=X-32»(X)90) 

9085 POSITION 2,Vl!? CHR$(C);:IF X=6 A 

ND ED=0 THEN 11000 

9090 IF X028 THEN 9130 

9100 IF Vl>2 THEN Vl=Vl-l!EL=EL-l;GOTO 

9080 
9110 IF EL=) THEN 9080 
9115 EL=EL-5:NN=4:IF EL<1 THEN NN=EL+3 
:EL=1 

9120 FOR I=EL+NN TO EL STEP -liPOSITIO 
N 2,2;? CHR$(157)iTt(LPiI-l)+l,LP(I)): 
NEXT I:POSITION 2,23:? S*;:GOTD 9080 
9130 IF X029 THEN 9180 
9140 IF EL>=LN-1-FL THEN 9080 
9150 EL=ELtl 

9160 IF VK22 THEN V1=V1+1:BOTO 9080 
9165 NN=4:IF NN>LN-EL-1-FL THEN NN=LN- 
EL-l-FL 

9170 EL=EL+NN:POSITI0N 2,23;F0R I=EL-N 
N TO EL:? T${LP(I-1)+1,LP(I)):NEXT 1:5 
OTO 9050 

9180 IF X=27 THEN 9580 
9190 IF X04 OR Vl=2 THEN 9250 
9200 NC=LP(EL)-LP(EL-1):IF EL=LN-1 THE 
N T$=T«(l,LPiEL-n):GOTO 9205 
9202 T$[LP(EL-1)+1)=T$(LP(EL)+1) 
9205 FOR J=EL TO LN-1:LP(J)=LP(J+1)-NC 
iNEXT J 

9210 X=22-V1:1F X>LN-EL-2 THEN X=-l 
9220 POSITION 2, VI:? CHR$(156): 
9225 IF X>-1 THEN POSITION 2,22:? S*:? 

CHR$(28)i:IF EL<LN-1 THEN ? T$(LP(EL+ 
X-l)+l,LPiEL+X)) 

9230 IF EL=LN-1-FL THEN V1=V1-1:£L=EL- 
! 

9240 LN=LN-}:60T0 9080 
9250 IF X024 THEN 9310 
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9260 POSITION 2,0:? "Delete frois here 

to the end of teiit?»;:eET »1,X:)1=MZ8 

»iK>127i:)(=X-32>(X><?0) 

<?265 IF X089 THEN 9060 

WO LN=EL:L$="":CHfiR=l;SLDC=0:IF LN>1 

THEN T$=Ttil,LP(LN-l))!GOTO 9280 
9275 TJ=°" 

9260 TL=LEN!T*):GOTQ 95B0 
9310 IF X0155 THEN 9080 
9320 L1=EL-8:IF LKl THEN Ll=l 
9330 L2=L!+16:IF L2>LN-1 THEN L2=LN-1 
9340 9$="Type new line below ("F to fi 
nish) ";' a$;Q$;? LINt 
9350 FOR J=L1 TO EL:? T$iLP(0-r) + l,LP( 
Jl):NEn J 
9360 ?:?:':? 

9370 IF L2>EL THEN FOR J=EL+1 TO L2:? 
Tti:LPi.]-lH-l,LP(J),i;NEU J 
9380 POKE 752,0:P0Sn!aN 2, EL -11+2 
9390 TLN=LN 

9410 Cl=CHflR:Bl=SLOC!CHftR=l:SLnC=0 
9420 ED=1;60SUB 500 
9430 CHAR=C1:SL0C=S1 
9450 NL=LN-TLN: NC=LP (LN-1 ) -LP ( TLN- 1 > 
9480 IF EL=LN-1 THEN T$=T«(!.LP(EL-1M 
iGOTO 94'?0 

9485 T*(LP!EL-n + l)=T«(LP(ELl + l) 
9490 CC=LP(EL)-LP(EL-n:FDR J=EL TO LN 
-1:LP(J)=LP(J+1)-CC:NEXT J:IF NL=0 THE 
N LN=TLN-1:SOTO 9580 
9500 :i($=Tt(LEN(T*));IF UOCR* ftND U< 
>• • THEN Tt(LEN(T$)+l)=" ":NC=NC+l!LP 
(LN-2)=LP(LN-2)+l:LP(LN-l)=LPiLN-lJ+l 

9502 CN=LP{EL-U:FOR I=LEN(T*) TO CN+1 
STEP -NC:IF KNC THEN T*(CN+NC+1,1+NC 

)=T$(CN+1,I):G0T0 9504 

9503 Tt(!+l,I+NC)=Tt(I-NC+l,I) 

9504 NEXT I 

9505 TtlCM+l,CN+NC)=T*iLEN(T*)-NC+n 

9506 FOR I=LN-2 TO EL STEP -1:LP(I+NL) 
=LP(1)+NC:NEXT I:J=TLN+NL-1 

9508 K=LPiLN-2!-LPiEL-l>:F0R 1=0 TO NL 

-!!LP(EL+I!=LFiJ+I)-K:NEXT I 

9510 T$=T$U,LEN(T$)-NC) 

9530 LN=TLN+NL-!;1F U=tM OR EL=LN-NL 

THEN 9580 
9550 SS=1:P»=T*!LP(EL+NL-1)+1.LP(EL+NL 
)i:LL=LEN<Pt) 



MICROTEXT2.0- 



9560 IF P»(SS,SS)<>" " AND SS<LL THEN 

SS=SS+1:60T0 9560 

9570 IF LP(ELtNL-l)-LP(EL+NL-2)+SS<=L« 

ID THEN 60SUB 8000 

9580 TL=lEN(Tt):IF FL THEN LN=LN-1:L$= 

Tt(LP(LN-li+l,LP(LN)):CHAR=LEN(L$)+l:T 

L=LP(LN-1) 

9600 STP=0!RETURN 

Subroutine to convert lower case 
to upper case. 

10000 FOR A2=l TO LEN(F*):Ft(ftZ,A2)=CH 

R4(ftSC(F*(AZ,fiZ))-32»F$(AZ,AZ)>"Z"):NE 

XT AZ: RETURN 

Subroutine to perform the find 

function. 

11000 PLOT 0,0:DRAWTO 39,0;P0SITI0N 2, 

Oi? "Search 5tring";:INPUT AZ«!X=EL-1: 

IF m="' THEN 9050 

11010 POSITION 2,0:? "Searching for '" 

sAZt;"'" 

11020 !=X+1:1F X=LN THEN POSITION 2.0: 

? r.HR$i253l; "String not found, preE5 a 

ny key":GET (tl,AZ:GQTQ 9050 

11030 L$=T$(LP(X-n+l,LP(X)):IF LEN(Lt 

)-LEN(AZ«)';0 THEN 11010 

11040 FOR AZ=1 TO LEN(L$)-LEN(AZt)+l:I 

F L$iAZ,AZ+LEN(AZ$)-l)<>AZt THEN NEXT 

AZ;GQTO 11020 

11050 EL=X:L$=""!60T0 9320 

Error-handling routine. 

12000 FOR AZ=1 TO LN-1:FQR X=LPiAZ-l)+ 

1 TO LPiAZJ 

20000 CLOSE it2:E=PEEK(195) 

20010 PLOT 0,0:DRAWTO 39,0 

20020 PLOT 0,1:DRAMT0 39,1 

20030 POSITION 2,0:? "Error: Code ";£; 

"! press any ifey";? LIN* 

20040 GET #1,X:TRAP 20000 

20050 IF PF=1 THEN PF=0:GOSUB 3000 

20060 ED=0:GOTO 200 
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LINES 


CODE 


LENGTH 


LINES 

6080 - 7080 


CODE 

ER 


LENGTH 


10 - 125 


TK 


540 


534 


130 - 510 


MV 


576 


7090 - 7530 


XU 


270 


520 - 760 


PE 


286 


7540 - 8000 


U2 


408 


7B0 - 1050 


BB 


324 


8010 - 9000 


AK 


498 


lOiO - 20b0 


RY 


286 


9005 - 9085 


PB 


510 


2070 - 2950 


FX 


472 


9090 - 9170 


PF 


526 


300O - 3135 


LH 


3'Jl 


9180 - 9260 


VV 


624 


3140 - 4020 


RY 


457 


9265 - 9380 


Xll 


474 


4030 - 4200 


Rfl 


571 


9390 - 9502 


TK 


561 


4205 - 5075 


RP 


458 


9503 - 9580 


06 


542 


5080 - 5205 


HL 


503 


%00 - 11050 


PL 


514 




5210 - 6000 


RU 


276 


12000 - 20060 


NC 


312 



\/licrot:ex:t Microbe 

Microtext Microtext Microl 

.O Microtext; S.O 

ext 2.0 Microtext 2.0 Mic 

crotext: S.O IN/licr 

I ?.n Micmtext ?.\ 
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Jcamily 1-ree 

by Fred Coffey ^ J- ^ciIllZ(3i 

Family Tree Organizer is a geneaiogical data management pacloge 
for the Atari® 400/800/1200 with Atari BASiC, 32K RAIM, a disic drive 
and a printer. 

At present the programs are written for an Epson printer, but with the 
aid of the special section on Printer Control Codes, adapting it for 
other printers should not be difficult, as long as they have "compressed 
character" mode. 

This data management package organizes and presents genealogical data. It 
creates data files on your relatives, including unlimited biographical informa- 
tion. You can retrieve data in a variety of formats (individual biography, 
pedigree charts, and descendant tabulation). After you edit or update any 
files, the computer automatically traces any new or redefined relationships. 

After booting DOS, type "RUN D:Family" to see the Family Tree 
Organizer's main menu: 

• FILEPROG — Creates/edits disk data files on your relatives, and prints 
out a nicely formatted biography for your records (Figure 1) 

• DIRPROG — Maintains and prints a data file directory, (Figure 2) 

• CHARPROG — Prints a pedigree chart for you (or any of your relatives) 
by tracing the defined ancestor relationships (Figure 3) 

• DESLIST — Provides a listing of all the descendants it can find for any 
given person (Figure 4) 



Planting the Family Tree 

Make a copy of the Master Disk — it will get a lot of hard use. Next, format 
a blank disk to receive the files you will create. Actually you can use the Master 
Disk to hold data if you prefer, but less space is available. Label your data disk 
"Disk Number 1." If and when it's full you can add more disks. Each can 
hold 64 files, representing several hundred relatives. The program can keep 
track of about 500 files (i.e. eight to ten disks and two thousand relatives). 

You can start anywhere — starting with yourself works well. Just choose a 
Person X and prepare to enter the information. Specifically, the computer is 
Interested in X's parents (if known) and children (if any) for family tracing , 



purposes, and will accept an unlimited amount of biographical information. It 
creates a file on X defining the following relationships: 



:^F^h 



But didn't we forget that X might also have a spouse? Actually, he/she 
might have several (not necessarily at the same time) and that's the problem. 
So we'll use the children to establish the marriage connection(s), so when you 
tell the computer about the children you will also tell it who the other parent is. 
To show a marriage with no children, we lie a bit, and tell the computer they 
had a child called "NO CHILDREN." The computer will be quite satisfied. 

Next, we create similar files for X's father, his mother, their parents, and so 
on through the generations. When we ask the computer for a pedigree chart on 
X, it searches the directory for files on each person it encounters, and traces up 
or down the tree as appropriate until it finds no more information. The limit is 
fifteen generations when tracing descendants. 



File Generation 

To create a file, insert the Master Disk, and type RUN "D:FILEPROG". 
After the disk stops, take it out and insert the "Disk Number 1" you previous- 
ly formatted. The screen prompts for a file name, or you could hit RETURN 
to start a new file. We'll discuss the file name for retrieving an old file later, so 
just hit RETURN to indicate a new file. 

Now just follow the prompts. Remember the chart we showed earlier for X? 
The computer starts by asking for X's given names, family name and birth 
year. You must use only capital letters for names. If you don't know the exact 
birth year, the program cheerfully accepts dates like "192x." 

The computer now draws a small box and asks for biographical informa- 
tion. The box has room for five lines of 32 characters. You can enter any 
potentially useful facts, in any format — dates and places of birth, marriage, 
death and burial might be informative. Avoid Atari graphics (control-shift) 
characters. Figure 3 shows one user's choice for the type of information to 
provide here. 

The computer moves on to collect data on X's parents. Just answer the 
prompts, remembering to use only capital letters for names. 

For the section on children, the computer displays sample data in the desired 
format, then waits for instructions. To edit the screen, type "E" (and 
RETURN) then enter data as required. Type "S" to save the data and move 
on to the next child. The screen retains information that might be used again, 
so you don't have to type it twice. When you finish entering data for all the 
children, type "F" to finish. 

The final section is for an extended biography or other notes. You enter_^ 
text a "hne" at a time, with the last several lines displayed on the ; 
The word "line" refers to a 75 character printer line, which in fact^ 
takes up two screen lines. Type until the cursor nears the end of t 
second line, then hit RETURN. To put an extra blank line be- 
tween paragraphs, just hit RETURN without entering _ 
anything. When finished, enter "@" to exit this portion. 
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The computer now asks if you want to save this data in 

"lUlyyyy.nnn". After a bit of reflection, you'll discover 

'1111" represents the first four characters of X's last name, 

'yyyy" is year of birth, and "nnn" the first three characters of the 

first name. You've just decoded the secret of the computer's filing 

system. Write the file name on a piece of paper — you'll need it again 

shortly. If you want to save the file, type "YES" and press RETURN. Spell 

out the word "YES" — it won't accept anything less because I deliberately 

made it difficult to overwrite an important file accidentally. The computer 

asks you to make sure the correct disk is inserted. Press RETURN and the file 

is saved. Don't rush on to create a file on your next relative. Review the editing 

functions below and save yourself some typing. 




Editing Children 

Type RUN again. This time, when prompted, enter the name of the file 
previously created. If you can't remember the name, use the DOS command to 
see the disk directory. We'll put it into a different kind of directory later. The 
program asks if you want to update the file, or print it. Choose "update." The 
program retrieves data from the disk, waiting after each step to see if you want 
to change anything. Change whatever you want, then hit RETURN when it's 
right. 

When you reach the files on children you have several choices: 



COMMAND 


PURPOSE 


S 


Save 


D 


Delete 


E 


Edit 


I 


Insert another child's file before this one 


F 


Finish the child data entry 


X 


Special (we'll explain that later) 



At the biography section, the program retrieves each line from disk and waits. 
You can edit Gust re-type the line, or move the cursor to where corrections are 
needed and overstrike), delete (*), insert { + ), or quit (@). When done, save 
the file as before. 



Typing Shortcuts 

The most important shortcut when creating a new file is to recycle one 
you've already made on someone else with a lot in common. A spouse will 
have the same children, a brother the same parents, etc. Instead of indicating a 
"new file," ask for the file of the "similar person" and just edit it as 
necessary. 

That "special" option mentioned earlier for editing the children's files will 
create the other parent's file from the spouse's, since some or all of the 
children are identical. When the first child comes up for editing, do a normal 
edit to include his other parent, then use special option "X". The computer 
reads this command as "save the data on the screen, then bring up the next 
child without changing the parent data on the screen." 



The Directory 

Create more files now if you want, but note the name of each file as you go. 
Before we can do much else, we must record these file names in the 
"directory." The chart printing programs use this directory to determine if 



various files exist and where they are. When you're ready to make entries in 
the directory, insert the Master Disk and type RUN "D:DIRPROG". The pro- 
gram asks for names of files you want saved or deleted. Type in each name, 
then when asked, indicate the disk number for that file. It continues to ask for 
names until you finish by pressing RETURN without an entry. Answer Yes to 
the prompt if you want to print the directory. Note that the directory file 
resides on the Master Disk, because several programs use it when they are ex- 
ecuted, and the directory includes individuals on all your data disks. 



Pedigree Chart 

Insert the Master Disk and type RUN "D:CHARPROG". The program 
asks for the name of the initial file — the person whose progenitors you want 
to find. Next, it asks if you have a standard MX-80 printer. If not, or if you 
have some trouble with the printout, you should read the special section on 
Printer Control Codes to find some solutions. It now announces it's looking 
for the first file and asks you to insert the appropriate disk. If it can't find all 
the required files on that disk, it may ask you to change disks one or more 
times before starting to print. If you haven't put all the file names into the 
directory, it won't be able to look for them. 



Printing the Family Tree 

Load the Master Disk, and type RUN "D:DESLIST". The program asks 
you to enter a "title" to be printed at the top of each page. Next enter the file 
name for the person whose descendants you want tabulated. If necessary, the 
program occasionally will ask you to insert another disk. Again, keeping the 
directory up to date is important. 

After tracing all known descendants of the person selected, it asks for 
another file name. If you have all the information you want, type DONE to 
return to the main menu. However, if you want to continue the tabulation 
starting with a different ancestor, enter the file name, and the tabulation con- 
tinues from there. If it finds it is about to repeat a listing, it inserts a page 
reference and skips ahead. 

A good approach is to generate a pedigree chart (or charts, if it goes back 
more than five generations) for a given person. Then tabulate (in a single run) 
the descendants for all the most distant ancestors. When finished you will have 
a tabulation of all that person's known relatives. 



Large Families 

When using more than one disk to hold all the records, try to keep logical 
family groups together. Avoid entering names randomly. For example, put 
your father's family on one disk and your mother's on another. Keep in mind 
what sort of charts you will be making and for whom. If you are keeping track 
of cousins who will appear only on descendant lists, you might pack two or 
more generations into one file. 

To see how to do this, consider the descendant list. It indicates 
various generations by indenting an additional two spaces for 
generation. Simply put both the children and grandchildren into a per- 
son's data file, but insert two spaces in front of the first name i 
each grandchild. Then on the printout it will show up as if you 
had created a file on an extra generation. 
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Printer Control Codes 

These programs were written for an Epson MX-80, using its 

graphics characters (identical to the TRS-80 set), and probably will 

not work on other printers. In fact it may not work as intended on all 

Epsons — later models don't have the graphics font. 

The principal difficulty will be drawing the pedigree charts, and a "quick 

fix" is available as an option in executing that program (CHARPROG). When 

you run the program it asks if you have a standard MX-80; if you reply "no" 

it avoids using the graphics characters. If problems persist, or if you are not 

satisfied with the appearance of your charts, read on. 

First, determine whether your printer uses the following control character 
codes. If not, you will have to make substantial changes by locating all the 
codes and changing them. 



ASCII CONTROL CODE PURPOSE 



CHR$(27);CHR$(48) Switch to 1/8 inch line spacing 

CHR$(12 + 128) Advance paper to top of form 

CHR$(14) Turn on double- width printing 

CHR$(I5) Turn on compressed character mode 

(132 characters per line) 
CHR$(20) Turn off double width. 

If these control codes are compatible or translatable, you still may need to find 
the corresponding graphics characters (and their ASCII codes) on your printer 
to draw the special sections on the pedigree chart. The MX-80 characters are 
identified below: 



CHARACTER # 


SHAPE 


CHARACTER # 


SHAPE 


165 


i 


188 


r 


170 


1 


189 


% 


172 


■ 


202 


I 


173 


J, 


204 


<% 


174 


A 


206 


iJ 


181 


% 


43 


+ 



To facilitate adapting the programs to other printers, I have located the 
printer control codes for each program in the 20000 series of line numbers, and 
have included numerous REM statements at that location. These graphics 
characters apply only to the "CHARPROG" program. You can change them 
to characters suitable for your printer by changing the code number on the 
right side of each "CHARNUM = " statement in lines 21210 through 21260. 

The "CHARPROG" program also uses eight Unes per inch for printing, 
versus the standard six lines per inch. If your printer cannot do this, simply 
delete line 20200. Unfortunately your pedigree charts will be somewhat longer 
than an eleven inch sheet of paper. You could add a line of code to count the 
lines printed and skip to the next page if this bothers you. 

The programs also use double-strike and double-width print modes. If your 
printer lacks this ability, override the option as specified in the "REM" 
statements. Your charts will look a bit different from the examples shown, but 
should be quite readable. 

V > 





DEMOW^®^ 



by Greg Schroeder 

Screamin' Demon is a game for the Atari® computer with 16K of 
RAIVI (24K with disic) and one joystick. 



Screamin ' Demon is an arcade style pinball game complete with multiple 
flippers, bumpers, flashing lights and sound effects that add an eerie flavor to 
the game. For even more excitement, the ball may be played on not one, but 
three levels, if you can find the way to get to them. 

Start the game by pulling back on the joystick. This simulates the plunger 
action in real pinball. Releasing the stick sends the ball on its way. The 
bumpers on all levels are activated by pressing the joystick button. 

Hitting the ball into one of the various secret traps on the screen either sends 
the ball to another level, or scores bonus points. You'll earn an extra ball for 
every 50,000 points. 



Variables 



BALL: Number of balls left. 

BONUS: Score at which bonus 

credits are achieved. 

CR: Number of bonus credits. 

D: Start of display list. 

DISK: Disk flag for high score 

table (1 for disk, for cassette). 

H(x): High scores (all time highs if 

disk system). 

HS: Most recent high score. 

H$: High score initials. 

I,J,J1,J2,J3,K: Miscellaneous 

variables. 

L: Temporary ball level. 

LEV: Current playing level the ball 



N: Number of initials typed in. 

NT: Current note counter. 

S: Game starting flag, stick status. 

SC: Score. 

T: Length of time flippers have 

been pressed. 

TI: Timing variable for 

background music. 

V: Volume of explosion. 

X,Y,X1,Y1: Position of ball on 

screen. 

XM,YM: Motion variables for 

X,Y movement of ball. 

X$: Machine language code for 

flippers. 

Z,ZZ,Z1,Z3: Miscellaneous screen 

contents variables. 
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SCREAMIN' DEMON 



If you don't wish to type this program, It 
Is available on Issue #42 SoftSlde CV 
and DV. 



Initialization 

Data for machine language program 
stored in X$ that puts on and erases 
all ten flippers on the screen. 

1 DATfi 104,162,14,189,50,6,24,101,89,1 
33,205,189,36,6,24,101,88,133,204,144, 
2 

2 DATA 230,205,160,0,177,204,93,64,6,1 
45,204,202,208,224,96,0,224,223,2,1,0, 
252,251, 139,136,135,216,211, 210,0 

3 DATA 2,2,3,3,3,2,2,2,2,2,1,1,1,0,42, 
163,170,160,10,42,168,170,160,10,170,1 
60,10 

GOSUB to initialize X$, then do 
high-score initialization. If DISK = 1 
then the program will load the high- 
score table from the disk, otherwise, 
the high scores change whenever 
the program is rerun. Readers 
without disk should make DISK = 0. 

4 60SUB 870:DIBK=1 

5 TRAP 10:DI« ft(2),H(10),H$(30>;H$=* 

"■•IF DISK 
=0 THEN FOR 1=1 TO 10:H(I)=0:NEXT 1:60 
TO 10 

6 TRAP SiDPEN ill,4,O,»B:HISC0RES"!F0R 
1=1 TO 10: INPUT «l,H:H(I)=H:NEn I:INP 
UT »liH$;CLOSE ttl:GOTO 10 

8 CLOSE «1:0PEN #1,8,0, "DsHISCORES'sFO 

R 1=1 TO 10:? «1,0:NEXT I:? I1,H$:CL0S 

E tthGOTO 6 

10 BRftPHICS 5:G0SUB 690:S0SUB 700:REST 

ORE 90 

25 LEV=1:BALL=3;SC=0:CR=0:B0NUS=50000: 

S0FF=O;6OSUB 500: IF S=l THEN S=0:60T0 

55 



Plunger routine that starts off each 

new ball. 

55 TRAP 250:X=53:Y=26:XN=0:YH=0:C0L0R 

2: PLOT X,Y 

60 IF STICK (0)=I3 THEN COLOR 0;PLOT X, 

Y:Y=Yt(Y<3B):C0L0R 2:PL0T X,Y;SOUND 0, 

Yt3,10,10;F0R J=l TO 30:NEXT JiBOTO 60 

65 IF Y=26 THEN 60 

70 SOUND 0,0,0,0:YN=-((Y-26)/24+0.5) 

75 COLOR 0:PLOT X,Y:Y=Y+Y«:COL0R 2:PL0 
T X,Y:FOR J=l TO 20:NEXT J: IF Y<3 THEN 

COLOR 0:PLOT X,Y:60T0 80 

76 GOTO 75 

80 Y=1:X=52:XM=YI1:YH=RND(0)/4:F0R 1=1 
TO 25;C0L0R OsPLOT X,Y:X=X+XM: COLOR 2: 
PLOT X,Y:F0R J=l TO 20;NEXT J:NEXT I 
85 COLOR 0:PLOT X,Y:COLOR hPLOT 39,1: 
PLOT 39,2:X1=INT(X):Y1=INT(Y);P0KE 77, 


Data for background music. 

90 DATA 60,2,64,2,60,2,81,2,96,1,81,2, 

121,4,60,2,64,2,60,2,81,2,96,1,81,2,12 

1,4,60,2,53,2,50,2,53,1,50,2,60,4 

92 DATA 53,2,57,1,53,2,64,2,60,2,81,2, 

96,1,81,2,121,4,60,2,64,2,60,2,81,2,96 

,1,81,2,121,4,60,2,64,2,60,2,81,2,96,1 

94 DATA 81,2,121,4,60,2,53,2,50,2,53,1 

,50,2,60,4,60,2,53,2,57,1,53,2,64,2,60 

,2,64,2,60,1,64,2,60,4,60,2,53,2,47,2, 

53,2 

96 DATA 47,2,60,2,53,2,57,1,53,2,64,2, 

60,2,81,2,96,1,81,2,121,4 

98 DATA 182,4,193,4,243,2,217,8 

100 IF V>1 THEN V=V-1:S0UND 0,!00,8,V: 
GOTO 102 

Main program loop. 

101 SOUND 0,0,0,0 

102 COLOR 0:PLOT XI, Vl:YI1=YI1+0. 015-0.0 
15»(Y«=l);Z=0:n=0;IF XHOO AND YI1>0 T 
HEN XN=XI1+0.01-0.02»(XI1>0) 

103 IF PEEK (764) =62 THEN POKE 764,255: 
S0FF=I-BOFF: SOUND 1,0,0,0 

Play background music. 

104 IF SOFF THEN 110 

105 IF TI>0 THEN TI=TI-1:G0T0 110 

106 SOUND 1,0,0.0:NT=NT+1:1F NT=75 THE 
N NT=1:REST0RE 90 



lOB READ N,TI:SOUND 1,N,10,4:TI=T1 
no LOCATE INT(.K+XI1),lNT(YtYI1),Z:IF Z= 
THEN X=X+l(ll!Y=y+YH:Xl=INT(X):Yl = INT( 
Y):COLOR 2:PL0T n,Yl:BOTO 150 
111 GOTO 115 

Make sounds, Increase score, and 
move the ball In the direction accor- 
ding to the type of bumper hit. 

115 SOUND 0,200-Z»50,12,10!SC=SC+{Z-1) 
«50ILEV: Z3=PEEK ( 707tZ ) : ZZ=Z : POKE 707+Z 
,Z3+i:PDKE 65i,0:P0t;E 657,30:? SC; 

116 LOCATE INT (X+XI1l,yi,Z: LOCATE X!,IN 
T(YtYH),Zl!POKE 707+ZZ,Z3 

120 IF ZOO AND Z1=0 THEN XN^-XHsGOTO 

150 

130 IF Z=0 AND ZIOO THEN YN=-YI1:60T0 

137 

135 XM=-XH:YH=-YH 

137 IF XM>-0.2 AND X«<0.2 THEN X(1=!2tR 

ND(0)-1)»YH 

139 GOTO 150 

150 IF Z=l OR Zl=l THEN GOSUB 300 

152 IF (Z=2 OR Zl=2) AND T>0 THEN 60SU 

B 175+5»LEV 

15A IF Z=3 OR Z1=J THEN YI1=S6N(YH)!V=1 

5 

156 IF STRIG(0)=0 THEN 200 

158 IF T>0 THEN T=0:COLOR 0:PLOT XI, Yl 

!A=USR(1536):C0L0R 2:PL0T XI, Yl 

160 GOTO 100 

ISO J=22:G0SUB 195;J=31:G0SUB 195:J=37 

sGOSUB 195:G0T0 199 

185 J=37:60SUB 195:G0T0 199 

190 J=35:60SUB 195:60T0 199 

195 IF Y1=J THEN 197 

196 RETURN 

197 IF T>5 THEN Y(l=YH/3! RETURN 

198 YI1=-0.5-(6-T)/10:RETURN 

199 RETURN 

Flipper control. 

200 IF T>0 THEN T=T+l!60T0 100 

210 T=1:C0L0R 0:PLOT X1,Y1;S0UND 0,200 

,10,10:A=USR(1536) 

215 LOCATE X1,Y1,Z:IF Z=0 THEN 220 

217 Y=Y-1:Y1=YI-1;GOTO 115 

220 COLOR 2:PL0T X1,Y1:60T0 100 



Ball went to bottom of the screen. If 
the ball was on level one, you lose 
the ball and it checks for bonus 
credits. If the ball was on the se- 
cond or third levels. It returns it to 
level one and adds bonus score. 

250 IF Y<I THEN Y=l!Yl=INT(Y) 

255 IF Y>38 THEN SOUND 1,0,0,0:GOTO 27 

5 

270 TRAP 250j60TO PEEK ( 187 )»256+PEEK(1 

86) 

275 IF LEVOl THEN L=1:B0SUB 34O;6OT0 

270 

277 FOR 1=1 TO 50;NEXT I 

280 RESTORE 98:F0R 1=1 TO 4:READ N,TI: 

SOUND 1,N,10,10:SOUND 2,200, 12, 10:F0R 

J=l TO TU65JNEJT J:HEXT IsRESTORE 90 

282 IF SC>=BONUS THEN 295 

285 NT=0:BALL=BALL-I:POKE 656,0!P0KE 6 

57,11:? CHR»(176+BALL)pIF BALL=0 THEN 

600 
290 SOUND 1,0,0,0:SOUND 2,0,0,0:F0R 1= 
1 TO 500: NEXT I:60TG 55 
295 CR=CR+1:BONUS=BONUS+50000:POKE 656 
,2:P0KE 657,11:? CHR«(176+CR)i 
297 FOR 1=1 TO 4;S0UND 1,100,10,15;FDR 

J=l TO 20:NEXT J:S0UND 1,0,0,0:FOR J= 
1 TO 20:NEXT J:NEXT I:6OT0 285 

Check to see if the ball went In a 
trap door or bonus slot and change 
the ball level, add to score, and 
make sound effects. 

300 SC=SC+10:60TO 300+5ILEV 

305 J=44:K=12;L=INT(RNDt0)*2)+2;60SUB 

335:J=45:60SUB 335:J=39;K=14:L=4:G0SUB 

335!J=41:L=2:G0SUB 335 
307 J=43:L=3:60SUB 335:J=45:L=4:60SUB 
335: GOTO 390 

310 J=7:K=33:L=1;60SUB 335: J=24: GOSUB 
335:60T0 390 
315 J=55:K=23:L=1:GDSUB 335;J=72:G0SUB 

335: GOTO 390 
335 IF X1=J AND Y1=K THEN POP :GOTO 33 
5t5«L 

337 RETURN 

340 SOUND l,0,0,0:LEV=LiSC=SC+2000:X=l 
NT(RND(0)«16)<-33:Y=I9 
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342 FOR K=-80 TO 90 STEP 10: FOR J=0 TO 
16 STEP 2:S0UND 0,100-ABS(K)tOtS6M(K) 

,8,12:NE.U J:NEXT KiSOUND 0,0,0,0:SOTO 
360 

345 SOUND I,0,0,0:LEV=L:SC=SC+4000:X=I 
NT(RND(0)tI2)+10:Y=28 

346 FOR K=! TO 4:Jl=INT(RND(0)»15)t5+l 
50:J2=INT(RNB(0)«5)«5H00:F0R J=J2 TO 
Jl STEP 2 

348 SOUND 0,J.8,12!J3=14-J3:P0KE 712, J 
3:NEXT J:NEXT k:POKE 712,0:S0UND 0,0,0 
,0:GOTO 360 

350 SOUND l,0,0,0!LEV=L:SC=SCt4000:X=I 
NT(RND(0)tl2)+58:y=29:60T0 346 
355 FOR K=l TO 3:F0R J=255 TO STEP - 
SiSOUND 0,J,4,10:S0UND 1,255-J,a, 10:SC 
=SC+25:P0KE 656,0: POKE 657,30:? SC; 
357 NEXT J:NEXT K:SOUND 0,0,0,0:SOUND 
l,0,O,0:60T0 360 
360 X1=INT(X>:Y1=INT(Y):YN=I 
390 POKE 656,0:P0KE 657,30:? SCpRETUR 
N 

High score routine. 
400 GRAPHICS ItGOSUB 69O:POSIT!0N 5,2: 
? l6;'aaaarrgh°:P0SlTION 0,4:? «6;'Y0U 
HAVE UPSET THE SPIRITS BY HAKINB" 
405 ? #6; "TOO HANV POINTS. NON YOU 
MUST ENTER YOUR INITIALS IN OURPERflAN 
ENT RECORDS" 
410 ? «6!"S0 HE HAY REFERENCE THEN HHE 

N YOUR TINE COMES ' 

420 ? ■ CHOOSE THE LETTER WITH THE JOY 

STICK':? " PRESS THE SUTTON TO EN 

TER" 

425 POSITION 3,15;? i6; "abcdefqhi jkln 

nopgrstuvHXY; " 
430 X=3:Y=15:L=1:N=0 
435 SOUND 0,0,0,0:S=STICK(0)jIF S=15 A 
ND STRIBI0)=1 THEN 435 
440 IF STRIG(0)=0 THEN A(N)=L+64:N=Ntl 
:SOUND 0,100, 12, IOjFOR 1=1 TO 50:NEXT 
I: SOTO 490 

450 POSITION X,Y:? lt6iCHR$(L+224)i;IF 
S=7 THEN L=Lvl-26>(L=26) 
455 IF S=I1 THEN L=L-l+26«(L=ll 
460 Y=15:IF L>13 THEN Y=16 
465 .<=L-rNTa/14)tl3+2:P0SITI0N X,Y:? 
«6;CHR$(L+64);:S0UND 0,RND(0)tl50+50,l 
0,10;F0R 1=1 TO 5;NEXT !:S0UND 0,0,0,0 
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466 GOTO 435 

470 SOUND 0,0,0,0:FOR 1=1 TO 10; IF HS< 

=H(I) THEN NEXT I: GOTO 495 

475 IF 1=10 THEN H(I)=HS:GOSUB 485:60T 

490 

4B0 FOR J=10 TO I+l STEP -1:H(J)=H(J-1 

):H«(J»3-2,Jt3)=H*((J-l)«3-2,(J-l)»3): 

NEXT J:H(I)=HS:GOSUB 485:G0T0 495 

485 H«(It3-2,I«3-2)=CHR$(A(0)):H»(U3- 

l,I«3-l)=CHR$(fl(l));H»(I«3,I«3)=CHR*(A 

(2)): RETURN 

490 POSITION 7+N,18:? #6;CHR»(A(N-l)+3 

2);: IF N=3 THEN 470 

492 GOTO 435 

495 IF DISK=0 THEN RETURN 

497 OPEN #1,8,0, "D:HISC.ORES":FOR 1=1 T 

10:? (I1,H(I):NEXT 1:? «liH$;CLOSE #1 

: RETURN 

Screen display routine. 

500 POKE 559,0:? "}":? U;"}" 

502 COLOR hPLOT 6,39:DRAMT0 6,22:DRAM 

TO 25,22: DRAI/ITO 25,39:DRAHT0 25,0:DRfiW 

TO 54,0:DRAWT0 54,39:DRA«T0 54,22:DRflH 

TO 73,22 

505 DRAHTO 73, 39: PLOT 52,39:DRAHT0 52, 

3;DRAWTQ 37,3:DRfiNT0 37,10:PL0T 37,13: 

DRANTO 47,13 

510 PLOT 28,30:DRANT0 28,39:PL0T 49,30 

:DRAWTO 49,39:PL0T 55,34 

515 DRAWTO 55,39:PL0T 72,34:DRAI^T0 72, 

39 

520 COLOR 2:PL0T 55,28:DRAWT0 55,33:PL 

OT 72, 28: DRANTO 72, 33: COLOR 1 

525 FOR 1=38 TO 46 STEP 2:PL0T I,14:NE 

XT hCOLOR 3:PL0T 40,4:DRA«T0 49,4:PL0 

T 28,6:PL0T 28,7 

530 PLOT 34,6:PL0T 34,7:CQL0R 2:PL0T 3 

1,6;PL0T 31,7:PL0T 42,7;PL0T 43,7:PL0T 

46,7:PL0T 47,7 
535 COLOR 3!PL0T 38,6:DRAI(T0 38,10!PL0 
T 5I,6:DRAHT0 51,10 
540 COLOR 1:PL0T 71,23:PL0T 56,23:PL0T 

7,32:PL0T 24,32 
545 1=28: FOR J=32 TO 36 STEP 2; FOR K=0 

TO hPLOT I+K,0:DRANTO I+K,39:NEXT K; 
I=I+2:NEXT J 
550 I=49:F0R J=32 TO 36 STEP 2:F0R K=0 

TO 1:PL0T I-K,J:DRA«TO I-K,39:NEXT K: 
I=1-2:NEXT J 



555 FOR 1=58 TO 68 STEP 10:F0R J=0 TO 
hPLOT I+J,34:DRAWT0 1+J,39:NEXT JiNEX 
T I 

560 FOR 1=7 TO 20 STEP 13!F0R J=0 TO 4 
:PLOT I+J,34:DRAHT0 I+J,39:NEn JrNEXT 

I 
564 COLOR 2:PL0T 25,23:PL0T 52,23;PL0T 

29,32:PL0T 48,32:P10T 33,38:PL0T 44,3 
8 

566 PLOT H,38:PL0T 20,38;PL0T 59,36:P 
LOT 68,36 

570 COLOR 2:J=13:K=23:G0SUB 580!J=17:G 
OSUB 580!J=28!K=16:60SUB 580:J=32:60SU 
B 580:>!=3e:K=4:80SUB 580:J=50:60SUB 58 


572 J=63:K=23;G0SLIB 580:J=61:K=3B:G0SU 
B 580!J=65:K=38:G0SUB 580: COLOR 3 

575 J=9:K=26:6QSUB 580:J=10:K=30:BOSUB 
580:J=20!80SUB 580:J=2l!K=26:80SUB 58 

0:J=30:G0SUB 58O:J=46;G0SUB 580 

576 J=42;K=11:G0SUB 580:J=46:BOSUB 580 

577 J=5B:K=32:60SUB 580; J =68:60808 580 
:J=60:K=26:60SUB 580:J=66;G0SUB 580 

578 SOTO 590 

580 PLOT J.K:PLOT J+1,K:PL0T J+1,K+1:P 

LOT J, K+1: RETURN 

590 ? 'I'lFOR 1=0 TO 3:P0K£ 656,I:P0KE 

657,0:? " ■;:NEXT 

bPOKE 656,0:P0KE 657,2 

592 ? "BflLLS - ";CHR$(176tBftLL);:P0KE 

656,2:P0KE 657,2:? " CREDIT - °;CHR$(1 
76+CR); 



595 POKE 656,0;P0KE 657,21:? "SCORE - 
■jSCpPOKE 656,2:P0KE 657,21:? 'HIGH 
- "jHdJpPOKE 559,34:RETURN 

Game over. Check for bonus credits 
and continue game if there are 
some, otherwise, print high score 
table and wait for START l<eypress. 

600 IF CR>0 THEN BflLL=CR+l:CR=0:POKE 6 

56,2:P0KE 657,11;? "0_";:GOTO 285 

610 SOUND 1,0,0,0:SOUND 2,0,0,0:FOR 1= 

1 TO 300:NEn I 

615 IF T)0 THEN T=0!fl=USR(I536) 

620 IF SOHdO) THEN HS=SC:60BUB 400:G 

OSUB 675:G0T0 635 

630 GRAPHICS hGOSUB 690:G0SUB 675 

635 POKE 656,1: POKE 657,11:? 'YOUR SCO 

RE - "iSC 

^^ SCREAMIN' DEMON 
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640 POSITION 4,19:? #6;" gaie OVER "; 

:FOR J=l TO 30:G0SUB 660:NEn J:POSITI 

ON 4,19 

650 ? 16; "PRESS start"; ;FOR J=l TO 30 

:80SUB 660: NEXT J: GOTO 640 

660 IF PEEK(53279)<:>6 THEN RETURN 

670 GRAPHICS 5:G0SUB 690: GOTO 25 

675 ? «6i"}":P0SlTION 5,2:? «6;"hi_5CO 

re5":F0R 1=1 TO 10:P0S1TI0N 4,3+1:? #6 

;H»iIt3-2,l«3);" ";H(I):NEXT I 

680 ? "}": RETURN 

690 SETCDLOR 0,3,4:SETC0L0R 1,9,8:SETC 

OLOR 2, 12, 4: POKE 752,1:R£TURN 

Title page graphics. 

700 TRAP 750: X=0:Y=8! RESTORE 800: C=l 

705 POKE 656,3:P0KE 657,14:? " PRESS S 

TART "; 

710 READ J:IF J=0 THEN Y=V+1:X=0:G0T0 

710 

720 C=1-C:IF C=0 THEN X=X+J:GOTO 710 

725 IF PEEK(53279)=6 THEN RETURN 

730 FOR 1=0 TO J:PLOT X+I,Y:DRA«TO 39, 

39:C0L0R 0;PLOT X+I,Y:DRftl*TO 39,39:C0L 

OR C:PLOT X+I,Y:PQKE 53279, 0;NEXT 1 

740 X=X+J:GOTO 710 

750 POKE 656,0:P0KE 657,18:? °By!":POK 

E 656,1:P0KE 657,13:? 'Greg Schroeder" 

760 FOR J=l TO 3:F0R !=15 TO STEP -0 

.3SS0UND 0, 150,8, I:SOUND 1,255,6,I:P0K 

E 708,INT(I»15)+4;NEXT I:NEXT i 

775 SETCOLOfi 0,3,4:D=PEEK(560)+256»PEE 

K(561)!X=PEEK(D+4);Y=PEEK(D+5):X1=X:Y1 

=Y 

780 FOR 1=0 TO 3:Xl=X+20»IiIF Xl>255 T 

HEN Xl=(X+20tI)-256:Yl=Yl+l 

782 POKE D+4,X1:P0KE D+5,Y1:F0R J=l TO 

7:60SUB 798:NEXT J:NEXT I:FOR 1=1 TO 
2:Xl=X+60-I»20 

784 IF XKO THEN Xl=256+(X+60-20tI);Yl 
=Y1-! 
786 POKE D+4,X1:P0KE D+5,Y1:F0R J=l TO 

7:G0SUB 798:NEXT J:NEXT IiGOTQ 780 

798 IF PEEK (53279)06 THEN RETURN 

799 POP iPOKE Dv4,X:P0KE D+5,Y:RETURN 

Title page data. 

800 DATA 12,5.2,5.2,5,2,5,2,5,2.1,5,1, 
2,1,2,1,4,1,2,1,0,12,1,6,1,3,1,2,1,3,1 
,2,1,6,1,3,1,2,2,3,2,2,1,2,2,3,1,2,1,0 
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810 DATA 12,1,6,1,6,1,3,1,2,1,6,1,3,1, 

2,1,1,1.1,1,1,1,2,1,2,1,1,1,2,1,0,12,5 

,2,1,6,5,2,4,3,5,2,1,2,1,2,1,2,1,2,1 

820 DATA 2,1,1,1,0,16,1,2,1,6,1,1,1,4, 

1,6,1,3,1,2,1,5,1,2,1,2,1,3,2,0,16,1,2 

,1,3,1,2,1,2,1,3,1,6,1,3,1,2,1,5,1,2,1 

830 DATA 2,1,4,1,0,12,5,2,5,2,1,3,1,2, 

5,2,1,3,1,2,1,5,1,2,1,2,1,4,1,0,0,0,0, 

0,0,19,4,3,5,2,1,5,1,2,6,2,1,4,1,2,1,0 

840 DATA 19,1,3,1,2,1,6,2,3,2,2,1,4,1, 

2,2,3,1,2,1,0,19,1,3,1,2,1,6,1.1,1,1,1 

,1,1,2,1,4,1,2,1,1,1,2,1,2,1,0 



850 DATA 19,1,3,1,2,4,3,1,2,1,2,1,2,1, 

4,1,2,1,2,1,1,1,2,1,0,19,1,3,1,2,1,6,1 

,5,1,2,1,4,1,2,1,3,2,2,1,0 

860 DATA 19,1,3,1,2,1,6,1,5,1,2,1,4,1, 

2.1,4,1,0,19,4,3,5,2,1,5,1,2,6,2,1,4,1 

,2,1,0,X 

870 DIH X»(7B)!F0R 1=1 TO 78;READ S:PO 

KE 1535+1, S:X«(l,I)=CHR«(S):NEn 1:8=1 

: RETURN 
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Tired of Typing? 



• Use And Enjoy These Programs Right 
Away! 

• Avoid Worry About Typos! 

• Get Additional Programs to Enjoy 
Without Typing. 




Order this Issue's Programs on Disk or Cassette 



Send the coupon below to: 

SoftSide Publications, Inc. 

10 Northern Blvd. 

Northwood Executive Park 

Amherst, NH 03031 




^W :^^\i 



SftffSlJ p Selections 

ORDER THIS ISSUE'S MEDIA 

Having difficulty finding the time to input tfie programs 
from this issue of SoftSide Selections? Don't despair — the 
cassette and disl< versions are still available! And, each DV 
(disk version) contains an additional program 

n #42 DV $16.00 n #42 CV $8.00 



Dlik Only; D Apple* D IBM* PC 

Dlili or Canctte: D Atari* D TR5-80* Mod. 

Name 

Address 



DTRS-BCMod. Ill 



City/State 

D Check or Money Order 

D MasterCard D VISA 
Name of Cardholder 



-Zip- 



A_55ft5[a^ 

.Selections 



dummmm 



SCfl[AMIN' 
O[M0fJ 



w 




MC#or lnterbank#/VISA# 

Exp. Date Signature 

Prices subject to change without notice. Apple*, I BM*, Atari* and TRS-80* are registered trademarks of The Apple Computer 
Company, International Business Machines, Inc., Warner Communications, and The Tandy Corporation respectively. 
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Issue 42 Adventure: 
Arabian Nights 

Ihe daughter of the 
ICaliph of Baghdad 
llies in a death-like 
trance, the victim of the evil 
magician Roxor's spell. 
Scattered throughout the 
desert are the tools and 
magical items you will 
need to acquire the eggshell 
of the great Roc, which 
can restore health to 
the Princess. Beware of 
monsters and poisoned 
water, and heed well the 
advice of the seer! Good 
luck, sahib! 



SoftSide Adventure Series ^CV ^^V 

What would you say to a program that asks, "What do you want to do?" 
Well, you might say, "GET RUBY" or "KILL GIANT", because that's how 
the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles, and thrills. Your first task is often simple survival — and even that 
basic feat can be daunting until you figure out the right way to do it. You'll 
have to be ingenious and persevering, and your rewards will be great. 

To "win" a fantasy/adventure game, you must solve the author's devious 
puzzles, and overcome the obstacles that confront you — whether they be 
dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live again! 

Experienced adventurers create detailed maps of each world as they search 
for solutions, but you can omit this exercise if your memory is exceptional. Ex- 
press your wishes with one- or two-word commands, like "LOOK", "DROP 
KNIFE", or "GET RUBY". Use "I" to get an inventory of your possessions. 
This issue's Adventure, Arabian Nights, features the commands "SAVE 
GAME" and "LOAD GAME". These permit you to try to solve the Adven- 
ture in more than one sitting. You'll also want to save the game before trying 
something hazardous, so that you may resume the game, should the results be 
adverse, without having to repeat a lot of work. As always, use the command 
"HINT" to decode the hints we publish one issue after each Adventure's ap- 
pearance. The introduction to each Adventure explains this more fully. 

To start up the Adventure, just run the program called "INTRO" or "IN- 
TRO. BAS" on your disk, or select the Adventure from the DV menu. 

On cassette, the INTRO program is the one just before the Adventure, which 
is the last program on the tape. 

The Adventure runs on any Atari with at least 32K RAM (40K disk). 

Here are the encrypted hints for 
Atlantis, the Adventure in issue 41. 

To find Atlantis: ULOOLD GSV NVINZRW. 

If something you need seems to be missing: OLLP 
RM GSV QFMP LI ZG IVGVK DSVM SV'H 
WVZW. 

What to do with the coins: GSILD GSVN RMGL 
GSV ULFMGZRM. 

What to do with the rods: RMHVIG GSVN IZGSVI 
GSZM WILK GSVN. 

To open the foot locker: WVHGILB RG ORGS GSV 
YOZHGVI. 

The injured Atlantean: TL YZXP GL DSVIV SV 
DZH SFIG ZUGVI BLF'EV SVOKVW SRN. 

If you get thrown into jail a second time: TREV FK 
-BLF XZM'G VHXZKV UILN QZRO GDRXV! 
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General Information About Listings, SWAT, and 
Magnetic Media 

These are the standard procedures for the programs published in 
SoftSide Selections. Sometinnes, a particular program does not lend 
itself to these procedures. Always read the specific instructions ac- 
companying a program. They will instruct you if there are any 
variances from the following procedures. Also, baci< issues of Soft- 
Side Magazine may differ in some details. 

SWAT 
TAKLK 




SWAT Tables 



At the conclusion of each program listing in SoftSide Selections, 
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT 
for the Atari appeared in SoftSide Issue #30. If you missed Issue #30, 
we'll send you a free reprint of SWAT. Send a self-addressed, stamped 
envelope to: SoftSide Publications, Inc. 

Department SWAT 

10 Northern Blvd. 

Northwood Executive Park 

Amherst, NH 03031 

Be sure to tell us that you have an Atari computer. 



Magnetic Media 

Disks do not carry the DOS.SYS and DUP.SYS files, and are not 
"bootable." First, boot a disk with DOS on it, then insert the SoftSide 
Selections disk, and run "D:COVER". Our disks are in DOS 2 format. 

Tapes CLOAD in the normal manner. If you encounter difficulty, try 
this procedure: 

1. POKE 54018,54 

2. Turn up the volume on your TV. 

3. Type CLOAD, and press RETURN once. 

4. Press the play button, and listen. 

5. When you hear the steady leader tone, press RETURN again. 
Side two of the tape is a duplicate of side one. 

SoftSide Selections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results in damage to the sen- 
sitive magnetic media. If, after a reasonable number of attempts on 
well-adjusted, clean equipment, you are unable to load a program, 
return it to us along with an exact explanation of your problem. We 
will send you a replacement. 

SoftSide Selections media are not copy protected. We urge you to 
make an archival backup copy of your disk or tape as soon as you 
receive it, as our replacement policy is valid only for 30 days. Please 
resist the urge to give away copies of copyrighted material. 
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Line Listings 

Line listings are in standard 38-column format, with special conven- 
tions for representing unprintable cfiaracters: 

You must type underlined characters, including blank spaces, in in- 
verse video. 

When graphics or control (CTRL) characters are included in a string 
(betv»/een quotation marks), a nearfc)y REM statement will make note of 
it; in such cases, graphics characters appear as the corresponding 
lower-case letters, and control characters appear as the correspond- 
ing unshifted key symbols. For example: the lower-case letter s 
represents a graphic cross, which you type by pressing the S key while 
holding down the CTRL key; the = sign represents CTRL-down-arrow, 
which you type by pressing and releasing the ESC key, then pressing 
the = key while holding down CTRL. For more information about 
entering control characters, refer to Appendix F and the back cover of 
your Atari BASIC Reference Manual. 

There are two exceptions to our above convention: A clear-screen 
character (ESC SHIFT-CLEAR) appears in our listings as a right-hand 
brace, which looks like this: }. The other exception is that a shifted = 
sign appears as a broken vertical line: | . 

Occasionally, a program will demand that we vary from these con- 
ventions. In such a case, a nearby REM statement or the program's in- 
troductory article will clearly note the special instructions. 

Be sure to read each program's explanatory article — it may con- 
tain special, important information about the program. Also, use 
SWAT on your program, and get the free reprint if you don't have 
SWAT. 



System Requirements 



The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. (Also see the SoftSide Adventure Series elsewhere in this 
booklet.) 
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Here's SoftSide Selections, the handy, 
pull-out booklet with program listings for 
your Atari® 400/800/1200 computer. This 
issue, SoftSide Selections for the Atari 
features: 

• Microtext 2.0 — This issue's Front 
Runner is a BASIC word processor with 
editing, printout, and even search com- 
mands, plus disk storage of your text. 

• Screamin' Demon — Enjoy pinball 
action with this simulation of gleaming 
steel balls, buzzers, bells, and digit 
counters. 

• Atari DV Bonus Program: Family Tree 
Organizer — a sophisticated, multi- 
program system that can keep detailed 
records of your family's genealogy and 
history. 

• The SoftSide Adventure Series — 
Arabian Nights. The daughter of the 
Caliph of Baghdad lies in a death-like 
trance, the victim of the evil magician 
Roxor's spell. 
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